home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-13 / tsqed16.zip / ROT13.QMA < prev    next >
Text File  |  1992-03-28  |  1KB  |  39 lines
  1. *                                                All rights reserved
  2. * Rotate or unrotate the marked block
  3. * By Prof. Timo Salmi Sat 28-March-1992
  4. *
  5. * To compile these macros apply QMAC ROT13.MAC ROT13.QMA /A- /B
  6. *
  7. * To compile and use this command macro you need
  8. * (also version 2.1 will do):
  9. *  QMAC.EXE macro translator from /pc/editor/qmac215.zip
  10. *  ROT13.EXE from garbo.uwasa.fi:/pc/ts/tsftlc13.zip
  11. *
  12. * Before compiling the macro, edit the paths in the "Dos" command
  13. * lines to conform to where you have your files.
  14. *
  15. * To make this macro available you can e.g. first invoke the main menu
  16. * (usually F10) and select Macro: Read Macro: rot13.mac. Then you can
  17. * invoke the en/decryption with ALT-5.
  18.  
  19. * ┌──────────────────────────────────────────┐
  20. * │ Rotate or unrotate a marked block, ALT-5 │
  21. * └──────────────────────────────────────────┘
  22. @5 MacroBegin
  23. *
  24. * Write the marked block to a temporary file
  25.    GotoBlockBeg
  26.    WriteBlock "r:\$rot13.txt" Return
  27.    DeleteBlock
  28. *
  29. * Rotate or unrotate using my ROT13.EXE program
  30.    Dos 'c:\tuki\rot13 < r:\$rot13.txt > r:\$$rot13.txt'
  31.    Return Return
  32. *
  33. * Read the rotated block
  34.    ReadBlock "r:\$$rot13.txt" Return
  35. *
  36. * Delete the temporary files
  37.    Dos 'del r:\$rot13.txt' Return Return
  38.    Dos 'del r:\$$rot13.txt' Return Return
  39.